<%

Function mensagens_enviar_email(remetente, destinatario, destinatario_email, assunto, mensagem)
	
'CRIA A INSTÃ‚NCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'CRIA A INSTÃ‚NCIA DO OBJETO PARA CONFIGURAÃ‡ÃƒO DO SMTP 
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.barbolao.com.br"

'PORTA PARA COMUNICAÃ‡ÃƒO COM O SERVIÃ‡O DE SMTP 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'PORTA DO CDO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'ATIVAR RECURSO DE SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'USUÃRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "barbolao@barbolao.com.br"

'SENHA DO USUÃRIO PARA SMTP AUTENTICADO 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "p1r4t3x49"

'TEMPO DE TIMEOUT (EM SEGUNDOS) 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

'ATUALIZA A CONFIGURAÃ‡ÃƒO DO CDOSYS PARA ENVIO DO E-MAIL 
objCDOSYSCon.Fields.update 
Set objCDOSYSMail.Configuration = objCDOSYSCon

'NOME DO REMETENTE, E-MAIL DO REMETENTE 
objCDOSYSMail.From = remetente&" <barbolao@barbolao.com.br>"


'NOME DO DESINATÃRIO, E-MAIL DO DESINATÃRIO UCase(varLogin) , varEmail
objCDOSYSMail.To = ""&destinatario&" <"&destinatario_email&">"

'ASSUNTO DA MENSAGEM 
objCDOSYSMail.Subject = assunto

corpo =         "<html>"
  corpo = corpo & "<head>"
  corpo = corpo & "<title>"&assunto&"</title>"
  corpo = corpo & "<meta http-equiv='Content-Type' content='text/html; charset=windows-1252'>"
  corpo = corpo & "</head>"
  corpo = corpo & "<body><table width='400' border='0' cellspacing='0' cellpadding='0'>  <tr>    <td><a href='http://www.barbolao.com.br'><img border='0' src='http://www.barbolao.com.br/imagens/mail.jpg' /></a></td>  </tr>  <tr>    <td>&nbsp;</td>  </tr>  <tr>    <td align='center' style='font-size: 12px; font-family: arial;color: #000;font-weight: bold;'>"
    corpo = corpo & mensagem
    corpo = corpo & "</td>  </tr>  <tr>    <td>&nbsp;</td>  </tr>  <tr>    <td align='center' style='font-size: 12px; font-family: arial;color: #000;font-weight: bold; '>    Bom divertimento a voc&ecirc;, se houver qualquer d&uacute;vida entre em contato.      <br />      <a style='text-decoration: none;' href='http://www.barbolao.com.br'>BARBOL&Atilde;O</a></td>  </tr></table></body>"
  corpo = corpo & "</html>"
'CONTEÃšDO DA MENSAGEM
objCDOSYSMail.HtmlBody = corpo
'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody
'objCDOSYSMail.HtmlBody = "<h1>Teste do componente CDOSYS</h1>"

'ENVIA A MENSAGEM 
objCDOSYSMail.Send

'DESTRÃ"I OS OBJETOS 
Set objCDOSYSMail = Nothing 
Set objCDOSYSCon = Nothing	
		
End Function

%>